home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 March / Ahoy_Magazine_86-03_1986_Double_L.d64 / mq world geog (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  11KB  |  265 lines
  1. 1 rem *** world geography quiz ***
  2. 2 rem put lists in geographical order
  3. 3 rem (in direct mode, type 'poke 53265,peek(53265)or 64' to make shifted
  4. 4 rem characters show up when typing them in
  5. 10 ff$="world geography"
  6. 11 ff$="@0:q "+left$(ff$,14)+",s,w"
  7. 12 open 2,8,2,ff$
  8. 15 z$=chr$(13)
  9. 17 poke 53265,peek(53265)or 64
  10. 19 rem * how many quizzes?
  11. 20 nq=8:print#2,nq
  12. 30 for i=1 to nq:read tn:print#2,tn
  13. 32 for j=0 to 3:read a:print#2,a:poke 53281+j,a:next:poke 53280,peek(53281)
  14. 34 for j=0 to 3:read fc$(j):print#2,fc$(j):next
  15. 36 read a$,b$:a$=fc$(3)+a$:b$=fc$(0)+b$:print#2,a$z$b$:print"[147]"a$:print b$
  16. 38 read a$,b$:a$=fc$(1)+a$:b$=fc$(1)+b$:print#2,a$z$b$:print a$b$
  17. 40 for j=1 to tn
  18. 42 read a$,b$:c$="":a$=" "+a$:for k=1 to len(b$):a=asc(mid$(b$,k,1))
  19. 44 if a<32 or a>95 then a=160:goto 47
  20. 45 if a>63 then a=a+32:goto 47
  21. 46 a=a+128
  22. 47 c$=c$+chr$(a):next:b$="[160]"+c$+"[146]"
  23. 49 print#2,a$z$b$:print ""fc$(2)a$"[146]"fc$(3)b$:next:next
  24. 50 close 2:print "";:end
  25. 99 rem ** quiz #1
  26. 100 data 20,6,8,5,7,"[144]","[158]","[158]",""
  27. 101 rem * quiz title
  28. 102 data "[160][160][160][212][200][197][160][215][207][210][204][196][167][211][160][205][207][211][212][160][208][207][208][213][204][207][213][211][160][206][193][212][201][207][206][211][160][160][160][146]"
  29. 103 rem * format line
  30. 104 data "    arrange them from most to least    "
  31. 105 rem * column headers
  32. 106 data "[160][195][207][213][206][212][210][201][197][211][160][160][160][160][160][160][160][160][160][160][160]"
  33. 108 data "[160][208][207][208][213][204][193][212][201][207][206][160][160][160][160][160][160][160]"
  34. 109 rem ** quiz items
  35. 110 data "china             as","1^020^000^000    "
  36. 111 data "india             as","  700^000^000    "
  37. 112 data "russia (ussr)  eu/as","  269^850^000    "
  38. 113 data "america (usa)     na","  233^700^000    "
  39. 114 data "indonesia       i-as","  153^000^000    "
  40. 115 data "brazil            sa","  129^660^000    "
  41. 116 data "japan           i-as","  119^260^000    "
  42. 117 data "bangladesh        as","   94^650^000    "
  43. 118 data "pakistan          as","   89^730^000    "
  44. 119 data "nigeria           af","   82^250^000    "
  45. 120 data "mexico            na","   72^900^000    "
  46. 121 data "west germany      eu","   61^420^000    "
  47. 122 data "italy             eu","   56^500^000    "
  48. 123 data "vietnam           as","   56^250^000    "
  49. 124 data "britain (uk)    i-eu","   55^850^000    "
  50. 125 data "france            eu","   54^650^000    "
  51. 126 data "philippines     i-as","   51^960^000    "
  52. 127 data "thailand          as","   49^460^000    "
  53. 128 data "turkey         as/eu","   47^280^000    "
  54. 129 data "egypt          af/as","   44^750^000    "
  55. 199 rem ** quiz #2
  56. 200 data 20,14,7,4,8,"","[144]","[144]",""
  57. 201 rem * quiz title
  58. 202 data "[160][160][195][207][213][206][212][210][201][197][211][160][212][200][193][212][160][195][207][214][197][210][160][193][160][204][207][212][160][207][198][160][199][210][207][213][206][196][160][146]"
  59. 203 rem * format line
  60. 204 data " arrange them from largest to smallest "
  61. 205 rem * headers
  62. 206 data "[160][206][193][212][201][207][206][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  63. 208 data "[160][193][210][197][193][160][201][206][160][211][209][174][205][201][204][197][211][160]"
  64. 209 rem ** quiz items in correct order
  65. 210 data "russia (ussr)  as/eu","8^649^489        "
  66. 211 data "canada            na","3^851^809        "
  67. 212 data "china             as","3^691^521        "
  68. 213 data "america (usa)     na","3^540^959        "
  69. 214 data "brazil            sa","3^286^470        "
  70. 215 data "australia         au","2^966^150        "
  71. 216 data "india             as","1^229^737        "
  72. 217 data "argentina         sa","1^072^067        "
  73. 218 data "sudan             af","  967^491        "
  74. 219 data "algeria           af","  919^595        "
  75. 220 data "zaire             af","  905^365        "
  76. 221 data "saudi arabia      as","  873^000        "
  77. 222 data "mexico            na","  761^600        "
  78. 223 data "indonesia       i-as","  735^268        "
  79. 224 data "libya             af","  679^536        "
  80. 225 data "iran              as","  636^293        "
  81. 226 data "mongolia          as","  604^250        "
  82. 227 data "peru              sa","  496^222        "
  83. 228 data "chad              af","  495^752        "
  84. 229 data "niger             af","  489^206        "
  85. 299 rem ** quiz #3
  86. 300 data 20,2,4,7,1,"","[144]","[144]",""
  87. 301 rem * quiz title
  88. 302 data "[160][160][160][160][160][160][160][160][160][160][208][207][206][196][211][160][193][206][196][160][208][213][196][196][204][197][211][160][160][160][160][160][160][160][160][160][160][160][160][146]"
  89. 303 rem * format line
  90. 304 data "   oceans^seas^& gulfs^largest first   "
  91. 305 rem * headers
  92. 306 data "[160][194][207][196][217][160][207][198][160][215][193][212][197][210][160][160][160][160][160][160][160]"
  93. 308 data "[160][193][210][197][193][160][201][206][160][211][209][174][205][201][204][197][211][160]"
  94. 309 rem ** quiz items in correct order
  95. 310 data "pacific ocean       ","64^186^300       "
  96. 311 data "atlantic ocean      ","33^420^000       "
  97. 312 data "indian ocean        ","28^350^500       "
  98. 313 data "arctic ocean        "," 5^105^700       "
  99. 314 data "south china sea     "," 1^148^500       "
  100. 315 data "caribbean sea       ","   971^400       "
  101. 316 data "mediterranean sea   ","   969^100       "
  102. 317 data "bering sea          ","   873^000       "
  103. 318 data "gulf of mexico      ","   582^100       "
  104. 319 data "sea of okhotsk      ","   537^500       "
  105. 320 data "sea ofjapan         ","   391^100       "
  106. 321 data "hudson bay          ","   281^900       "
  107. 322 data "east china sea      ","   256^600       "
  108. 323 data "andaman sea         ","   218^100       "
  109. 324 data "black sea           ","   196^100       "
  110. 325 data "red sea             ","   174^900       "
  111. 326 data "north sea           ","   164^900       "
  112. 327 data "baltic sea          ","   147^500       "
  113. 328 data "yellow sea          ","   113^500       "
  114. 329 data "persian gulf        ","    88^800       "
  115. 399 rem ** quiz #4
  116. 400 data 20,3,4,5,6,"","","[144]","[158]"
  117. 401 rem * quiz title
  118. 402 data "[160][160][160][160][212][200][197][160][204][207][206][199][197][211][212][160][210][201][214][197][210][211][160][201][206][160][212][200][197][160][215][207][210][204][196][160][160][160][160][146]"
  119. 403 rem * format line
  120. 404 data "  from source to mouth^longest first   "
  121. 405 rem * headers
  122. 406 data "[160][210][201][214][197][210][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  123. 408 data "[160][204][197][206][199][212][200][160][160][160][160][160][160][160][160][160][160][160]"
  124. 409 rem ** quiz items in correct order
  125. 410 data "nile              af","4^180 miles      "
  126. 411 data "amazon            sa","3^912 miles      "
  127. 412 data "yangtze           as","3^602 miles      "
  128. 413 data "ob                as","3^459 miles      "
  129. 414 data "yellow (hwang ho) as","2^900 miles      "
  130. 415 data "yenisei           as","2^800 miles      "
  131. 416 data "parana            sa","2^795 miles      "
  132. 417 data "irtish            as","2^758 miles      "
  133. 418 data "congo             af","2^716 miles      "
  134. 419 data "amur              as","2^704 miles      "
  135. 420 data "lena              as","2^652 miles      "
  136. 421 data "mackenzie         na","2^635 miles      "
  137. 422 data "niger             af","2^600 miles      "
  138. 423 data "mekong            as","2^500 miles      "
  139. 424 data "mississippi       na","2^348 miles      "
  140. 425 data "missouri          na","2^315 miles      "
  141. 426 data "volga             eu","2^291 miles      "
  142. 427 data "madeira           sa","2^012 miles      "
  143. 428 data "purus             sa","1^993 miles      "
  144. 429 data "sao francisco     sa","1^987 miles      "
  145. 499 rem ** quiz #5
  146. 500 data 20,6,14,1,8,"","[144]","",""
  147. 501 rem * quiz title
  148. 502 data "[160][160][160][160][160][160][160][212][200][197][160][215][207][210][204][196][167][211][160][204][193][210][199][197][211][212][160][204][193][203][197][211][160][160][160][160][160][160][160][146]"
  149. 503 rem * format line
  150. 504 data "  list the lakes^largest to smallest   "
  151. 505 rem * headers
  152. 506 data "[160][204][193][203][197][160][206][193][205][197][160][160][160][160][160][160][160][160][160][160][160]"
  153. 508 data "[160][193][210][197][193][160][201][206][160][211][209][174][205][201][204][197][211][160]"
  154. 509 rem ** quiz items in correct order
  155. 510 data "caspian           as","152^239          "
  156. 511 data "superior          na"," 31^820          "
  157. 512 data "victoria          af"," 26^828          "
  158. 513 data "aral              as"," 25^659          "
  159. 514 data "huron             na"," 23^010          "
  160. 515 data "michigan          na"," 22^400          "
  161. 516 data "tanganyika        af"," 12^700          "
  162. 517 data "baikal            as"," 12^162          "
  163. 518 data "great bear        na"," 12^000          "
  164. 519 data "nyasa             af"," 11^600          "
  165. 520 data "great slave       na"," 11^170          "
  166. 521 data "chad              as","  9^946          "
  167. 522 data "erie              na","  9^930          "
  168. 523 data "winnipeg          na","  9^094          "
  169. 524 data "ontario           na","  7^520          "
  170. 525 data "balkash           as","  7^115          "
  171. 526 data "ladoga            as","  7^000          "
  172. 527 data "onega             as","  3^819          "
  173. 528 data "titicaca          sa","  3^141          "
  174. 529 data "nicaragua         na","  3^089          "
  175. 599 rem ** quiz #6
  176. 600 data 20,12,11,13,10,"[158]","","","[149]"
  177. 601 rem * quiz title
  178. 602 data "[160][160][160][160][160][160][160][160][160][211][213][210][210][207][213][206][196][197][196][160][194][217][160][212][200][197][160][211][197][193][160][160][160][160][160][160][160][160][160][146]"
  179. 603 rem * format line
  180. 604 data "    largest to smallest land masses    "
  181. 605 rem * headers
  182. 606 data "[160][201][211][204][193][206][196][160][207][210][160][195][207][206][212][201][206][197][206][212][160]"
  183. 608 data "[160][193][210][197][193][160][201][206][160][211][209][174][205][201][204][197][211][160]"
  184. 609 rem ** quiz items in correct order
  185. 610 data "eurasia--europe+asia","21^000^000       "
  186. 611 data "africa              ","11^000^000       "
  187. 612 data "north america       "," 9^000^000       "
  188. 613 data "south america       "," 6^800^000       "
  189. 614 data "antarctica          "," 6^000^000       "
  190. 615 data "australia           "," 2^967^909       "
  191. 616 data "greenland           ","   839^999       "
  192. 617 data "new guinea          ","   316^615       "
  193. 618 data "borneo              ","   286^914       "
  194. 619 data "madagascar          ","   226^657       "
  195. 620 data "baffin              ","   183^810       "
  196. 621 data "sumatra             ","   182^859       "
  197. 622 data "honshu              ","    88^925       "
  198. 623 data "great britain       ","    88^758       "
  199. 624 data "ellesmere           ","    82^119       "
  200. 625 data "victoria            ","    81^930       "
  201. 626 data "celebes             ","    72^986       "
  202. 627 data "south island (nz)   ","    58^093       "
  203. 628 data "java                ","    48^990       "
  204. 629 data "north island (nz)   ","    44^281       "
  205. 699 rem ** quiz #7
  206. 700 data 20,3,9,1,5,"[144]","[158]","[149]","[144]"
  207. 701 rem * quiz title
  208. 702 data "[160][160][160][160][212][200][197][160][204][193][210][199][197][211][212][160][195][201][212][201][197][211][160][201][206][160][212][200][197][160][215][207][210][204][196][160][160][160][160][146]"
  209. 703 rem * format line
  210. 704 data "      start with the largest city      "
  211. 705 rem * headers
  212. 706 data "[160][195][201][212][217][255][206][193][212][201][207][206][160][160][160][160][160][160][160][160][160]"
  213. 708 data "[160][208][207][208][213][204][193][212][201][207][206][160][160][160][160][160][160][160]"
  214. 709 rem ** quiz items in correct order
  215. 710 data "shanghai^china      ","10^820^000 (1970)"
  216. 711 data "mexico city^mexico  ","9^191^295  (1979)"
  217. 712 data "calcutta^india      ","9^165^650  (1981)"
  218. 713 data "seoul^south korea   ","8^364^379  (1980)"
  219. 714 data "tokyo^japan         ","8^334^860  (1981)"
  220. 715 data "moscow^russia (ussr)","8^302^000  (1982)"
  221. 716 data "bombay^india        ","8^227^332  (1981)"
  222. 717 data "peking^china        ","7^570^000  (1970)"
  223. 718 data "new york city^usa   ","7^071^639  (1980)"
  224. 719 data "sao paulo^brazil    ","7^033^529  (1980)"
  225. 720 data "london^england (uk) ","6^696^008  (1981)"
  226. 721 data "jakarta^indonesia   ","6^503^449  (1980)"
  227. 722 data "rio de janeiro^braz.","5^093^232  (1980)"
  228. 723 data "cairo^egypt         ","5^074^016  (1976)"
  229. 724 data "leningrad^russia    ","4^722^000  (1982)"
  230. 725 data "teheran^iran        ","4^530^233  (1976)"
  231. 726 data "santiago^chile      ","4^039^287  (1982)"
  232. 727 data "lima^peru           ","3^968^972  (1981)"
  233. 728 data "karachi^pakistan    ","3^498^634  (1972)"
  234. 729 data "sydney^australia    ","3^280^900  (1981)"
  235. 799 rem ** quiz #8
  236. 800 data 20,5,13,2,10,"","[144]","","[144]"
  237. 801 rem * quiz title
  238. 802 data "[160][160][212][200][197][160][205][197][204][212][201][206][199][160][208][207][212][173][173][215][200][197][210][197][160][215][197][160][195][193][205][197][160][198][210][207][205][160][160][146]"
  239. 803 rem * format line
  240. 804 data "  the most u.s.immigrants' homelands   "
  241. 805 rem * headers
  242. 806 data "[160][208][204][193][195][197][160][207][198][160][207][210][201][199][201][206][160][160][160][160][160]"
  243. 808 data "[160][200][207][215][160][205][193][206][217][160][195][193][205][197][160][160][160][160]"
  244. 809 rem ** quiz items in correct order
  245. 810 data "germany             ","6^998^056        "
  246. 811 data "italy               ","5^310^516        "
  247. 812 data "great britain       ","4^978^524        "
  248. 813 data "ireland             ","4^692^856        "
  249. 814 data "austria             ","4^318^845        "
  250. 815 data "canada              ","4^149^838        "
  251. 816 data "ussr                ","3^394^999        "
  252. 817 data "mexico              ","2^334^154        "
  253. 818 data "other asia          ","1^906^371        "
  254. 819 data "west indies         ","1^904^427        "
  255. 820 data "sweden              ","1^274^289        "
  256. 821 data "norway              ","  857^646        "
  257. 822 data "south america       ","  824^369        "
  258. 823 data "france              ","  756^979        "
  259. 824 data "greece              ","  669^888        "
  260. 825 data "china               ","  593^432        "
  261. 826 data "poland              ","  528^098        "
  262. 827 data "portugal            ","  467^879        "
  263. 828 data "japan               ","  419^055        "
  264. 829 data "turkey              ","  391^860        "
  265.